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Ridge Pascal 

PREFACE 



This manual documents the Ridge Pascal language, which is ba s ed on 
the standard language as defined by Jensen and Wxrth in the Pascal 
User Manual and Report.- The Ridge language shares various 
modifications to the base language, including traditional 
improvements to case statements, character synonyms, comments, and 
declares, with other Pascal implementations These and other 
chanaes arose from the desire for performance tradeoffs and the 
Seed 3 to meet implementation requirements, creating a language 
suitable for production. 

Since a knowledge of Pascal on the part of the reader is assumed, 
the differences between the Jensen-Wirth language and the Ridge 
language are documented in this manual but not the Pascal language 
in its entirety. 

This manual is divided into three sections: 
o Ridge Pascal Language Notes 
o The Pascal Runtime Environment 
o An Example 

The first section describes Ridge Pascal by listing the differences 
between it aSd the Jensen-Wirth language. Topics are arranged 
alphabetically. 

The second section describes the Pascal runtime environment. Much 
of this information is pictorial: memory diagrams are provided that 
illustrate the relationships among the various components of a 
Pascal user process running under the Ridge Operating System (ROS) . 

The third section gives an example of how to write an assembly 
language routine that can be called by a Pascal program. 
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SECTION 1 
RIDGE PASCAL LANGUAGE NOTES 



INTRODUCTION 

This section describes the Ridge Pascal language by citing the 
differences between it and standard Pascal (as defined in Kathleen 
Jensen and Nicklaus Wirth's "Pascal User Manual and Report"). 

The reader is referred to the Jensen/Wirth book, second edition, 
Springer-Verlag, 1975, for a detailed discussion of the base 
language. 

The following list gives an overview of where Ridge Pascal differs 
from standard Pascal. The list is in alphabetical order for easy 
reference, and each item is explained in detail in the remainder of 
this section. 

o Case Statements 

o Character Synonyms 

o Comments 

o Compiler Options 

o Declarations 

o External Procedures and Functions 

o Files 

o EOF and EOLN 

o File Manipulations 

o OpenFile 

o CloseFile 

o FileStatus 

o File Types 
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o GET 

o PUT 

O READ 

O RESET 

O REWRITE 

o Standard Predefined Files 

O WRITE 

o GOTO Statements 

o Identifiers 

o Mixed Mode Expressions 

o Numbers 

o Integers 

o Reals 

o PACKED Types 

o PACK and UNPACK 

o Procedures and Functions as Parameters 

o Reserved Words 

o String Literals 

o Strings 

o How to use 

o NewString 

o Types 
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LISTING OF DIFFERENCES 



Case Statements 

In standard Pascal, if there is no case label equal to the value of 
the case expression, the action of the case statement is undefined, 
in Ridge SScS" hSievSr, the statement immediately following the 
case statement is selected for execution. 

The case statement has an optional "otherwise" "Be label. The 
reserved word "otherwise" may be affixed to the last case 
alternative rather than a case label, causing control to be 
transferred to this last alternative in the event of no prior match 
with other case labels. 



Character Synonyms 

The follwing character synonyms are recognized by the Ridge Pascal 
compiler: 



o "I" can be substituted for "or", 
o "&" can be substituted for "and", 
o "~" can be substituted for "not". 



Comments 



delimit 

be used. 

command starts 



used to 
may also 



In Ridge Pascal, the symbols "(*" and "*) " may be 
comments; the standard symbols { and ) 
Comment delimiters must be matched; that is, if a 
with "{", then it must end with "}"; if it starts wxtn i , "en 
it must end with "*)". Comments having the the same delimiters may 
not bf nested. All text appearing between delimiters is ignored by 
the compiler; however, if the first symbol after the first 
delimiter is "$", the comment is interpreted as a compiler option 
(see Compiler Options) . 
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Compiler Options 

Compiler options are communicated to the compiler via special 
comments (see Comments) . The following compiler options are 
recognized by the Ridge Pascal compiler when they follow a "$" at 
the beginning of a comment: 

o The "E" (eject) option controls pagination of the source 
listing. The effect is that the next source line will 
appear at the top of a new page. 

o The "G" option controls the starting address of the 
(static) outer block variables. This option must appear 
before the "program" declaration. The "G" option implies 
absolute addressing as opposed to relocatable addressing 
(see the "R" option) . 

o The form of the "G" option is "G<n>" where 
"<n>" is a decimal integer. For example, 
"G16384" would cause the compiler to start 
allocating global variables at 16K. 

o The default is "G4096". 

o The "L" option is for source listing control. This 
option may appear anywhere in the source program. 

o "L+" turns the listing on. 

o "L-" turns the listing off. 

o "L+" is the default. 

o The "0" option instructs the compiler whether or not to 
optimize the object code. 

o "0+" produces optimized object code. 

o "0-" produces unoptimized object code. 

o "0+" is the default. 
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o The "P" option controls the packing of data. It i nf ° rm s 
the compiler that it should pack data closely, which 
saves data space but increases execution time. See tne 
Runtime Environment section for information about the 
layout of data and the effect of packing. This option 
must appear before the "program" declaration. 

o "P+" causes data to be tighty packed. 

"p_" causes nonpacking of data. 

o "P-" is the default. 

o The "R" option causes the compiler to generate code in 
which thi outer block variables are allocated in a 
relocatable segment rather than being assigned to 
absolute addresses. This option thus facilitates the 
construction of a program consisting of a number or 
separate Ampliations? With this type of construction, 
the user will not be burdened with assigning starting 
addresses for the separate compilations' outer block 
variables since the linker will perform this task. 

Accessinq relocatable outer block variables generally 
caSse! a 9 sUght performance decrease in comparison to 
accessing absolute outer block variables. The reason for 
?he decease is that an extra instruction must be 
executed to determine the base of the separate 
relocatable compilations' outer block variables. 

The "R" option must appear before the "program" 
declaration. Additionally,, it is mutually jxclusive^vith 

the 

(str: 

the "R" is pr< 

appear in the same compilation. 
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o "R+" enables relocatable addressing of global 
variables. 

o "R-" disables relocatable addressing of global 
variables, i.e., causes absolute addressing. 

o "R-" is the default. 



o The "S" option controls the starting address from which 
string constants will be allocated downwards (towards 
lower addresses). The "S" option implies absolute 
addressing as opposed to relocatable addressing (see the 
"R" option) . This option must appear before the 
"program" declaration. 

o The form of the "S" option is "S<n>" where 
"<n>" is a decimal integer. 

o "SO" is the default. 



Declarations 

LABEL, CONST, and TYPE declarations may appear in any order and may 
be repeated. However, as in standard Pascal, they may not appear 
after the first variable, procedure, or function declaration in the 
current block. 



External Procedures and Functions 

The "external" attribute is supported for procedures and functions. 
It is similar to the "forward" attribute in that it tells the 
compiler that only a procedure heading appears at this point. 
However, unlike the "forward" attribute which indicates that the 
body will appear later in the compilation, the "external" attribute 
indicates that the body has been compiled separately inside another 
program and will not appear in this compilation. The name of the 
"external" procedure will be passed on to the linker, which will 
resolve the reference at link time. 

The names of all procedures and functions are considered global and 
may be referenced by other separately compiled programs. 
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Files 



EOF(f) and EOLN(f). EOLN is defined as EOF or (f 
chr 13)), where "chr(13p is the ASCII carriage return. 
Return characters are not, as in standard P^ *;!:' 
converted to blanks. Nor, unlike standard Pascal, is EOF 
defined until after the first GET operation. 



o File Initialization 

All file variables except the predefined variables 
"input", "output", and "stderr" must be explicitly 
opened. There are three file manipulation routines for 
this purpose, which, since they are not predefined, must 
be declared as "external." For more information on these 
routines, see the Ridge "Operating System Reference 
Manual." The declarations for the routines are as 
follows (the string type is described later): 

Procedure OpenFile( 

var f:Text ; 

name: String ; 

mode: Char 
) ; External; 
Function FileStatus (var f -.Text) : Integer ;External; 
Procedure CloseFile (var f :Text) ;External; 



o The function of procedure "OpenFile" is to take 
a Pascal file variable and bind it to the ROS 
file indicated by the "name" argument. The 
argument "mode" must be either "R" for read 
access, "W" for write access, "A" for append 
access (writing at the end of a file) , or U 
for update access (reading or writing) . 

o The function "FileStatus" returns the value 
zero if no errors were encountered during any 
input/output operation on the file; otherwise, 
non-zero is returned. 

o The function of procedure "CloseFile" is to 
release the binding between the Pascal file 
variable, "f", and the ROS file. 
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o File Types. Only "Text" files (Text = File of Char) are 
currently supported. 

o GET must only be applied to open files, otherwise the 
results are undefined. The Ridge Pascal GET differs from 
standard Pascal in that the file buffer is not defined 
until the first GET is performed. This facilitates 
interfacing with interactive files. 

o PAGE outputs an ASCII form-feed, i.e., chr(12). 

o PUT must only be applied to open files. Ridge Pascal PUT 
performs as in standard Pascal* 

o READ(f, x) is defined as follows: 

begin 

GET(f) ; 

x := f A ; 
end 



while standard Pascal's READ(f, x) is defined as: 

begin 

x := T ; 
get(f) ; 

end 



o RESET is recognized by the compiler but performs no 
operation at this time. 

o REWRITE is recognized by the compiler but performs no 
operation at this time. 

o Standard Predefined Files. 

The files "input", "output", and "stderr" are predefined 
in the sense that if they appear in the "program" 
declaration they will be opened automatically and bound 
to ROS file entities. Specifically, it will appear as if 
the following statements had been executed, in which 
"inputName" is a string variable containing the 
characters "input", "outputName" contains "output", and 
"stderrName" contains "stderr". 
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OpenFile( input, inputName, *R' J | ; 
penFile (output, outputName , 'W') ; 
OpenFile(stderr, stderrName, 'W') ; 



o WRITE performs as in standard Pascal. 

o WRITELN outputs an ASCII carriage return, i.e., chr(13) . 



GOTO Statements 

GOTO st 
jumping 



GOTO statements may not transfer control out of the current block- 
iumping out of procedures or functions is not permitted. 



Identifiers 

Tripnt-ifiers mav be of any length but only the first 16 characters 
afe nt sf g rificant:identiLers 9 which differ only af t- the sixteenth 
character position will be regarded as the same ^^ifier. 
Identifiers must start with an alphabetic character (a letter) , but 
thereafter may contain letters, digits, or underscores. Upper case 
characters are not distinguished from lower case characters in 
identifiers. 



Mixed Mode Expressions 

Ridae Pascal allows mixed mode expressions (e.g., INTEGER ana 
REAM; however, a "var" parameter must be of the same type as the 



INTEGER and 



REAL); however, 
formal parameter. 



Numbers 

Integer constants in Ridge Pascal differ from standard Pascal in 

two respects: 

o The base (radix) may be specifed. 
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o Embedded underscores are allowed for improved 
readability. 



A BNF description of the allowable forms follows: 

integer_number ::= integer | based_integer ; 

integer ::= digit {['_'] digit} ; 

based_integer ::= base '#' extended_digit {['_*] 

extended_digit} ; 

base ::= integer ; — base must be in 2.. 36 

extended_digit ::= letter | digit ; 



Here are some examples to illustrate based integers and the use of 
underscores to improve readability. 



40_96 
65_536 

2_147_4 83_647 
-2_146_4 83_648 

2*11111111 

2#1111_1H1 

8#377 

16#ff 

10#2_147_4 83_647 



(* MAXINT *) 
(* MININT *) 



Ridge Pascal supports 32- and 64-bit real numbers, called REAL and 
DREAL respectively. A double real (DREAL) number is denoted in a 
fashion similar to the "E" notation except that a "D" or "d" is 
used instead. For example: 

pie = 3.1415926535D0 
bignum = 1.0D250 
maxreal = 6.8056464E38 
minreal = 5.8774728E-39 
maxdreal = 3.595386269724630D308 
mindreal = 1.112536929253601D-308 
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PACKED Types 

m RifloP Pascal, the reserved word "PACKED" is accepted but has no 
effect? To control storage allocation, the "P" compiler option is 
used (see Compiler Options) . 



PACK and UNPACK 

PACK and UNPACK are not currently supported by the Ridge compiler. 

Procedures and Functions as Parameters 

Ridge Pascal does not allow procedures or functions to be passed as 
parameters. 

Reserved Words 

Ridge Pascal t 
reserved words 
is "otherwise". 



o*,q«o pscrai treats uope r and lower case characters identically in 
?eslrvelSords" The only nonstandard reserved word in Ridge Pascal 



String Literals 

Character string literals may be a maximum of 80 characters in 

length. 



Strings 

THrfoP Pascal does not have a predefined string type. However, the 
Pascal retime "library supports a string type via routines (these 
Irl more fully described in the Ridge "Operating System Reference 
Manual"). The following example illustrates how strings are 
currently manipulated. 

The example opens a file called "data.x," does some processing, and 
Sn ? s h file. The procedures and functions in the Pascal 
runtime Ubrary accept and return strings as defined in the type 
declaration section* in the program The two-step method of 
allocating an empty string, and then copying the characters 
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one-by-one into the string, should be employed since string 
constants cannot be assigned directly to the string. 

Also, note that the procedures NewString, OpenFile, FileStatus, and 
CloseFile are not predefined, and must be declared as external 
procedures. 



Program Example (stderr) ; 

Type 

StringBody = Record 

length : Integer ; 
chars : Array [1..1] of Char ; 
end ; 

String = "StringBody ; 

Var 

CharArray : Array[1..6] of Char ; 
dataFile : Text ; 
fileName : String ; 
i : Integer ; 

Function NewString (lengths Integer) :String ; External ; 

Procedure OpenFile (var f:Text ; name:String ; mode:Char) ; External ; 

Procedure CloseFile (var f:Text) ; External ; 

Function FileStatus (var f:Text) ; Integer ; External ; 

begin 

CharArray := 'data.x 1 ; 
fileName := NewString (6) ; 
for i := 1 to 6 do 

f ileName". chars [i] := charArray[i] ; 
OpenFile (dataFile, fileName, 'R 1 ) ; 

if FileStatus (dataFile) <>0 then 

Writeln (stderr, ' cannot open data.x 1 ) ; 



do some processing 



{ 

} 

CloseFile (dataFile) ; 
end. 
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Types 

Ridge Pascal differs from standard Pascal with respect to types in 

the following ways: 

o DREAL (double REAL) is defined in addition to REAL. 

o qets The maximum number of set elements is limited to 

° If. in addition, the following restriction applies to 

set types and set expressions: in "set of l-- u or 

"1l..u]% "1" and n u" (or ord(l) and ord(u)) must be in 

the' range of zero to 63 inclusive. 

The rules governing data allocation and storage alignment^ for 
variables of the va 
of the runtime envi 
option. The sect 
details on this subject 
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SECTION 2 
THE PASCAL RUNTIME ENVIRONMENT 



INTRODUCTION 

This section provides a fairly detailed picture of the environment 
In which Pascal programs perform their computations. Enough 
information is given for the user to perform debugging using the 
bootstrap debugger, RBUG. 

The Ridge architecture maintains separate data and code spaces, and 
this separation forms the basic division of information in this 



o Data Segment Overview 

o Data Segment Memory Diagrams 
o Absolute Mode 
o Relocatable Mode 

o Stack Diagrams 

o The Mark stack Block 

o The Display 

o The Heap 

o Code Segment Overview 

o Code Segment Memory Diagrams 
o Preamble and Postamble Code 

o Procedure/Function Entry Code 
o Procedure/Function Exit Code 
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o Program Entry Code 
o Program Exit Code 

o Miscellaneous 

o Register Use Conventions 

o Procedure/Function Calling Conventions 

o Data Representation and Alignment Rules 



The following discussion assumes some familiarity with the Ridge 
architecture. Information on this subject can be found in the 
Ridge "Processor Reference Manual." 
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DATA SEGMENT OVERVIEW 



Data Segment Memory Diagrams 

The following two subsections provide information regarding the 
modes that affect memory storage: absolute and relocatable. 

ABSOLUTE MODE. Figure 1 gives an overview of the data segment of a 
Pascal user process when the compiler has been instructed to 
generate absolute addressing code (see Compiler Options) . The 
blocks are not necessarily to scale — there is a very large gap 
between the top of the stack and the bottom of the heap. 



FFFFFFFF 
(or $S) 



growth 



I 
I 
V 




(continued on next page) 
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I I 

I I 

I I < R14 

+ + (Stack Pointer) 

" I I 

I I I 

I | stack I < R15 

I I I (Frame Pointer) 

growth | I 

+ + 

I I 

I outer block | 

| variables I 

$G or 4096 I I 

+ + 

I I 

I I 

+ • + 

I I 

I Pascal RTL | 

I data I 

280 | I 

+ + 

I I 

I I 

+ + 

144 I ////////////// I stderr file buf | "stderr"" at 148 

+ + 

136 I ////////////// I output file buf | "output"" at 140 

+ + 

128 I ////////////// I input file buf | "input"" at 132 

+ + 

I I 

I I 

+ + 

64 | heap pointer | 

+ + 

63 I I 

I display I 

00000000 | I 

+ + 

Figure 1. Data Segment: Absolute Mode 
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RELOCATABLE MODE. Figure 2 gives an overview of the data segment 
of a Pascal user process when the compiler has been instructed to 
generate relocatable addressing code (see Compiler Options) . 



FFFFFFFF 



growth 



I 
growth 
$STACK 



4096 



heap 



stack 



$DATA and $STRING 
sections 



< R14 

(Stack Pointer) 



< R15 

(Frame Pointer) 



-+ 
I 



(continued on next page) 
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+ + 

I I 

I Pascal RTL I 

I data | 

280 I I 

+ + 

I I 

I I 



I I 

I I 

+ + 

144 I ////////////// I stderr file buf I "stderr"" at 148 

+ + 

136 I ////////////// I output file buf I "output"" at 140 

+ + 

128 I ////////////// I input file buf I "input"" at 132 

+ + 



+ + 

64 | heap pointer I 

+ + 



00000000 | I 

+ + 

Figure 2. Data Segment: Relocatable Mode 
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Stack Diagrams 

The Pascal runtime stack expands and contracts as procedures are 
entered and exited. Each time a procedure is invoked, it allocates 
a new piece of storage, called a stack frame, on top of the stack 
for its local variables, context information, parameters, and 
temporaries. 

Figures 3 through 6 represent snapshots of the stack at four 
significant times in a procedure: 

o Normal execution of some arbitrary procedure, "p". 

o Preparing for a call to another procedure, "q". 

o Entering procedure "q" . 

o Back in procedure "p". 



I 
I 
stack 
growth 



+ + 

local storage for 
for "p" 

+ + 

mark stack block 
for n p" 

+ //////////////////////////////// 

wwwwwwwwwwwwwwww 
//////////////////////////////// 






R14 

(Stack Pointer) 






R15 

(Frame Pointer) 



Figure 3. Normal Execution of a Procedure "p" 

In Figure 3, some arbitrary procedure "p" is executing. R15, the 
Frame Pointer, points to the start of the stack frame for procedure 
"p". All of "p n s references to local data are based on the Frame 
Pointer. 
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R14 + 32 
R14 + 24 



stack 
growth 



I 
I 
I 

I 

, + 

parameter y I 

. . + 

parameter x I 

////////////////////////////////I 

WWWWWWWWWWWWWWWW I <- 

+ 

I 

local storage for I 
for "p" I 

+ 

mark stack block I 

for "p" I <- 

+ 

////////////////////////////////I 
WWWWWWWWWWWWWWWWI 

////////////////////////////////I 

I 



R14 

(Stack Pointer) 



R15 

(Frame Pointer) 



Figure 4. Procedure "p" Preparing to Call Procedure "q" 

In Figure 4 f procedure "p" is now preparing to call procedure 
"q(x, y) " by pushing the parameters onto the stack. The Stack 
Pointer, R14, does not actually move at this time; rather, the 
parameters are pushed starting at R14+24, thus leaving a gap for 
"q"s mark stack block. 
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R15 + 32 

R15 + 24 



stack 
growth 



local storage for 



for """ 



parameter y 



parameter x 



mark stack block 
for "q" 



local storage for 
for "p n 



mark stack block 
for "p" 



//////////////////////////////// 
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\W 
//////////////////////////////// 



< R14 

(Stack Pointer) 



< R15 

(Frame Pointer) 



Figure 5. Entering Procedure "q" 

Figure 5 shows procedure "q" immediately after it has performed its 
entry code and the following events have taken place: 

o R15 <— R14 

o R14 < — R14 + <framesize> 

o The mark stack block is filled in. 

Notice that now "q" will refer to its parameters at "R15+24" and 
"R15+32," while the caller referred to them at n Rl4+24 n and 
"R14+32." 
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I 
I 
stack 
growth 



+ + 

local storage for 
for ,r p" 

+ + 

mark stack block 
for "p" 

//////////////////////////////// 

wwwwwwwwwwwwwwww 
//////////////////////////////// 






R14 

(Stack Pointer) 






R15 

(Frame Pointer) 



Figure 6. Return to Procedure "p 1 



Figure 6 shows the stack on return from "q" . The stack has been 
returned to the state it was in just prior to the call to "q" . 

If "q" had been a Pascal function, then register RO (or the 
register pair (RO, Rl)) would contain the function value. 



The Mark Stack Block 

The function of the mark stack block is to store information 
concerning procedure and function invocations. The mark stack 
block, therefore, makes it possible to restore the runtime 
environment when a procedure or function returns to its caller. 

Figure 7 shows the format of the mark stack block. 
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+ 

R15 + 20 I 2nd word of function result 

+ 

R15 + 16 I 1st word of function result 

+- 



■+ 

I 
-+ 

I 
-+ 



R15 + 12 I//////////// unused //////////// I 

+ + 

R15 + 8 I Old R15 (Dynamic Link) I 

+ + 

Rl5 + 4 | Old Static Link I 

+ + 

R1 s + I Old Rll (Return Address) I < R15 

Rlb + u j _„ + (Frame Pointer) 

Figure 7. The Mark Stack Block Format 



The Display 

The display is a sixteen word block which starts at location zero. 
Figure 8 shows the format for the display block. 



+ + 

60 I Current Context for Level 17 I 

+ + 



+ + 



4 | Current Context for Level 3 ! 

+ 1" 

| Current Context for Level 2 I 

+ + 

Figure 8. The Display Block Format 



When the compiler has been directed to generate absolute addressing 
code, the display resides at absolute virtual location zero. If 
the compiler il generating relocatable code, then the display 
resides at location zero relative to the "$DATA» section. 
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The Heap 

In the case of relocatable addressing, the heap starts at the top 

of the data segment and grows down towards the lower addresses; in 

the case of absolute addressing, it starts near the top and grows 

down. The allocation strategy can be described as follows: 

o First, if the number of bytes asked for is "b", then 
round up "b" to the nearest value such that (b mod 8) » 
0. This ensures double word alignment for items that 
follow it. 

o Second, if (b mod 4096) = (i.e., requesting a multiple 
of pages) , then align the allocated block on a page 
boundary. If (b mod 4096) <> 0, then the requested block 
will only be aligned on a double word boundry. 
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CODE SEGMENT OVERVIEW 



Code Segment Memory Diagrams 

For the purposes of discussion we will assume the following 
program, "test." A source program compiled by the Pascal compiler 
is referred to as a "compilation unit." 



Program test ( . . . ) 

Procedure a( ... ) 
begin { of a } 



• • 



end ; { of a } 

Procedure b( ... ) ; 

Procedure c( ... ) ; 

Procedure d( ... ) ; 
begin { of d } 

• • • 

end ; { of d } 
begin { of c } 

• • • 

end ; { of c } 
begin { of b } 

• • • 

end ; { of b } 

Procedure e( ... ) ; 
begin { of e } 

• t • 

end ; { of e } 
begin { of test } 
end': { of test } 

Figure 9 shows how the code segment corresponding to "test" would 
look, and represents the output of one compilation. Execution 
begins at location zero. 
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00000000 



$MAINBLK: 



+ + 

Preamble Code to set up R14, | 
R15, and the Heap Pointer. I 

Branch to $MAINBLK. | 



Code for a 



Code for d 



Code for c 



Code for b 



Code for e 



Code for test 



I 



I 

I 

•+ 

I 

I 

-+ 



-+ 

I 

I 

I 
■+ 

I 



I 



WWWWWWWWWWWWWWWWI 

////////////////////////////////I 

WWWWWWWWWWWWWWWWI 

////////////////////////////////I 

Figure 9. Code Segment 

The code segment of a running user process is usually composed of 
several compilation units which have been consolidated by the 
"link" program. Figure 10 shows the overall structure of the code 
segment of a user process. 
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+ + \ 

00000000 I preamble code I \ 

+ + \ 

I I \ 

I procedure/function code I > from "filel" 

I I / 

+ + / 

$MAINBLK: I "main" program code I / 

+..— = = = = = = = != = = = = = „„ = „ + \ 

I preamble code I \ 
+ + \ 

I I \ 

I procedure/function code I > from "file2" 

I I / 

+ + / 

$MAINBLK | "main" program code I / 
+================================+ \ 

I preamble code I \ 
+ + \ 

I I \ 

| procedure/function code I > from "file3" 

I I / 

+ + / 

$MAINBLK | "main" program code I / 

+ + / 

Figure 10. Overall Code Segment Structure 

Note the following points: 

o "link filel file2 file3" was the command used to produce 
the illustrated process. 

o Since the operating system passes control to the user 
process at location zero, execution will start at the 
"main" program in "filel." 

o The preamble code for "file2" and "file3" is never 
executed. 
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Preamble and Postamble Code 

The Pascal compiler generates code prior to the "begin" and after 
the "end" of a program, procedure, or function. This code performs 
such miscellaneous housekeeping tasks as stack adjustments and 
parameter manipulations. This section explains this code. 

The code which follows is meant to be interpreted as a "macro" 
notation. The code in the boxes is generated per the Pascal-like 
compile-time instructions. For example: 



FOR I := 1 TO 3 DO 

+ + 

I ADD R0 f R0 I — double RO 

+ + 

The above "macro" code would cause the instruction "ADD R0 f R0" to 
be generated three times. 



IF <condition> THEN 

+ + 

I <some code> I 

+ , + 

ELSE 

+ + 

I <some other code> I 

+ + 

TRUE; otherwise, "<some other code>" would be generated. 

In general, the "conditions" of the "macros" refer to attributes of 
the current program, procedure, or function being compiled. 
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PROCEDURE/FUNCTION ENTRY CODE. The following code is generated 
when a "begin" for a procedure or function is encountered. 

IF there are calls THEN 

I'sTORe" R11,R14,0 I — store return address 

+ . + 

IF there are no calls or loops THEN 
+ — _— — ____.___-._.- — + 

I MOVE R12,R15 I — save dynamic link 
+ + in R12 

ELSE 

+ + 

| STORE Rl5,Rl4 f 8 I " save dynamic link 
+ + in stack 

IF it's an intermediate level ,.,_,., 

procedure THEN — update the display 

IF absolute mode addressing THEN 

+ + 

I LOAD RlO f 4*(level-l) I — load old static link 
| STORE R10,R14,4 I — store it m the stack 
| STORE R14 f 4*(level-1) I — store new static link 
+ + 

ELSE 

+ + 

| LADDR R8,$DATA,L I ~ load address of $DATA 
I LOAD RlO,R8 f 4*(level-l) — load old static link 
| STORE R10,R14,4 I ~ store it in the stack 
| STORE Rl4,R8,4*(level-l) — store new static link 

+ + 

IF absolute addressing OR „ «. = „!, 

static level is not 1 THEN — allocate local stack 

+ + frame 

| MOVE R15,R14 I — R15 <~ frame pointer 

| LADDR R14,Rl4,size I — allocate stack frame 

+ + 
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FOR i := 1 TO number_of_parameters DO 
IF non-VAR array or record THEN 

+ , + 

LADDR Rx r Rl5 f disp 
LOAD Ry,R15,disp 
LADDR R8 f -(byte_count) 
LOADB R9,Ry,0 
STOREB R9,Rx,0 
ADDI Ry,l 
ADDI Rx f l 
LOOP R8,l,*-12 
+ ■ + 



copy "value" para- 
meters into local 
stack frame 
load dst address 
load src address 
# of bytes to copy 
load a byte 
store a byte 
increment src pointer 
increment dst pointer 
increment and loop 



In the code which manipulates the static link r the "level" refers 
to the textual level number of this procedure. The main program is 
considered level one; procedures which are declared at the program 
level are at level two; procedures inside these are considered 
level three; etc. 

PROCEDURE/FUNCTION EXIT CODE. The following code is generated when 
an "end" for a procedure or function is encountered by the 
compiler. 



IF it's a function THEN 

+ + 

I LOAD R0,R15 f 16 | 

+ + 

IF it's a two word value THEN 

+ + 

I LOAD R1,R15,20 | 

+ + 



— load function value 

— load first word 

— load second word 



IF it's an intermediate level 

procedure THEN 
IF absolute mode addressing THEN 

+ + 

I LOAD R10 f R15,4 | 
I STORE R10,4*(level-1) | 

+ + 

ELSE 

+ + 

I LADDR R8,$DATA,L | 

I LOAD R10 f R15,4 | 

I STORE R10 f R8,4*(level-l) 

+ + 



— restore the display 



load old static link 
store it the display 



load address of $DATA 
load old static link 
store into the display 



-38- 



Reference Manual 
Ridge Pascal 



IF there were calls THEN 

|"load~"rii"ri5To~""""~ "l - load return address 

+ + 



{ always do this } 

l"M0VE"""Rl4^Rir"""~ I - deallocate stack frame 



+ + 



IF there were no (calls or loops) THEN -- restore old R15 

+ + 

I MOVE R15,R12 I — ... from R12 

+ + 



ELSE 



+ + 

! LOAD R15,R15,8 I — ... from stack 



+ + 



{ always do this } 

Tret RIi'rII I " return to caller 



+ + 



For an explanation of "level" see the preceding section on 
Procedure/Function Entry Code. 



-39- 



Ridge Pascal 



Reference Manual 



PROGRAM ENTRY CODE. The first three boxes of code are generated 
when the compiler encounters the "program" declaration. Then at 
"$MAINBLK", in response to the "begin" of the main program, the 
standard Procedure/Function Entry Code is generated, followed by 
code which is particular to the main program. 

IF absolute addressing mode THEN 

+ + 

00000000 1 LADDR R10,$HEAP | — load heap start address 
I STORE R10, 64 | ~ store into heap pointer 

i MOVEI R14 f | — initialize R14 

+ + 

ELSE 

+ + 

I LADDR R14,$STACK,L | — initialize stack pointer 
I MOVEI R10,0 | — R10 <- 

I STORE R10 ,64 | — initialize heap pointer 

+ + 

{ always do this } 

+ + 

I MOVEI R15,0 | — initialize frame pointer 

I BR $MAINBLK | — branch to main program 

+ + 

Code for all local procedures/functions goes here 

$MAINBLK: 

+ . + 

I Proc/Func Entry Code | — do the same as for 

+ . + procedures 

IF absolute addressing mode THEN 

+ + 

I MOVE R15,R14 | — initialize frame pointer 

I LADDR R14,R14,size | — allocate outer block 

+ + variables 

{ always do this } 

+ + 

I CALL R11,SYSENTRY | — initialize Pascal RTL 

+ + 
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IF standard "input" file present THEN 

!"7an™TRx""l32~" I — loa d file buffer address 
ST^RE £:ill,24 I - store file buffer address 

I CALL R11,FDF I — °Pen the flle 

+ + 

IF standard "output" file present THEN 

t"rAnnR _ Rx~140 I — l° ad file buffer address 

! ST^RE £;£l4,24 I - store file buffer address 

| CALL R11,PDP I " °P en the flle 

+ + 

IF standard "stderr" file present THEN 

lTAnnR~Rx~148~~~~~~ I ~ l° ad file buffer address 

StSre R X ;r14,24 I " store file buffer address 

| CALL R11,FDF I — open the file 

+ + 

PROGRAM EXIT CODE. The compiler generates the following code when 
it encounters the "end" of a main program. 

{ always do this } 

|"MOVEl"Rx"o""~"" I — (^successful completion 

| STORE Rx f Rl4,24 I ~ store RO CVCPYTT 

I CALL R11,SYSEXIT I — program stops, SYSEXIT 

{.____ 1 + doesn't return 

+ + 

I proc/func exit code I ~ same as standard exit 
_j._l + code 
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MISCELLANEOUS 

This section discusses miscellaneous runtime issues that do not fit 
readily into one of the preceding categories. These include 
register use conventions, procedure/function calling conventions, 
and data representation and alignment rules. 

Register Use Conventions 

RO \ 

Rl \ 

R2 \ 

R3 \ register stack to 

R4 / evaluate expressions 

R5 / 

R6 / 

R7 / 

R8 \ 

R9 > scratch registers 

RIO / 

Rll return address register 

R12 \ "with" and "for" temporaries 
R13 / 

R14 Stack Pointer 

R15 Frame Pointer 



RO (or the register pair (RO, Rl) ) is also used to return the 
result of a function call. 



Procedure/Function Calling Conventions 

The general rules for a procedure or function call are as follows: 
p(pl, p2, . .. , pN) 



-42- 



Ridge Pascal Reference Manual 

o Evaluate parameter 1. Store it at R14,24. 
o Evaluate parameter 2. Store it at R14,3 2. 
o Evaluate parameter N. Store it at R14, 24+(N-l) *8 

The process of evaluating a parameter entails the following: 

o Code is generated to evaluate the parameter expression. 

o Depending on whether or not the corresponding formal 
parameter is a "var", there are two cases: 

o "var". In this case the parameter's ADDRESS is 
stored at R14, 24+( j-1) *8, where j is the 
parameter number , 1 <= j <= N. 

o Non-"var". This case is broken down into two 
subcases depending on whether the actual 
parameter is an array or a record. 

o The actual parameter is an array or a 
record. Pass the ADDRESS as 
described above. 

o The actual parameter is neither an 
array nor a record. The VALUE of the 
parameter is passed. 



If "p" is a Pascal function (as opposed to a procedure) then the 
caller will expect to find the function value in either register RO 
(or the register pair (R0,R1). 

Data Representation and Alignment Rules 

The compiler packing option "P+" or "P-" controls the amount of 
storage allocated to a variable of the following standard types: 

o BOOLEAN: One byte if "P+", four bytes if "P-". 

o CHAR: One byte always. 
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o DREAL: Eight bytes always. 

o Enumerated Types: the minimum number of bytes depends on 
the number of identifiers in the type: 

o One byte for 1 to 255 elements. 

o Two bytes for 256 to 65,535 elements. 

o Four bytes for more than 65,535 elements. 

o FILE or TEXT: Eight bytes always. The last byte, i.e., 
the one with the highest address, is the file variable 
"f"". 

o INTEGER: Four bytes always. 

o POINTER: Four bytes always. 

o REAL: Four bytes always. 

o SET: Eight bytes always. 

o Subranges: 

o If the packing option is set to "P-" then all 
subranges occupy four bytes. 

o If the packing option is set to "P+" then the 
minimum number of bytes is used. This depends 
on the lower and upper bounds of the subrange, 
as the following explains: 

o Negative lower bound always results 
in four bytes. 

o Lower bound of zero or more results 
in the following: 

o Upper bound of 1 to 255 
results in 1 byte. 

o Upper bound of 256 to 
65,535 results in 2 bytes. 

o Upper bound that is more 
than 65,535 results in four 
bytes. 
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The rules for Ridge Pascal data alignment are as follows: 

o Half-word items must be aligned on a half-word 
boundary, i.e., their addresses must be evenly 
divisible by two. 

o Word items must be aligned on a word boundary, 
i.e., their addresses must be evenly divisible 
by four. 

o Double-word items must be aligned on a 
double-word boundary, i.e., their addresses 
must be evenly divisible by eight. 



To optimize use of space, the preceding rules should ^observed 

For example, in declaring variables (or fields in a record) tne 

o?der ofthe items may have an impact on the total amount of 
storage used. 

{ 1 byte data } 

{ 3 bytes padding, 4 bytes data } 

{ 1 byte data } 

{ 7 bytes padding, 8 bytes data } 

{ 2 bytes data } 



Storage would be used more efficiently if the items were arranged 
as follows: 

{ 1 byte data } 
{ 1 byte data } 
{ 2 bytes data } 
{ 4 bytes data } 
{ 8 bytes data } 



ch 


: Char ; 


i : 


Integer 


b : 


Boolean 


d : 


Dreal ; 


k : 


1..1000 



ch 
b : 
k : 


: Char ; 
Boolean 
1..1000 


i : 

d : 


Integer 
Dreal ; 
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Declarations of the following sort are also inefficient: 

a : Array [1.. 100000] of Integer ; 
ch : Char ; 

• • • 

• • • 

i : Integer ; 

An improvement would be to declare the large array last, then short 
offsets could be used in the code that accesses M ch" f "i", and 
other scalar variables. Refer to the "Ridge Processor Reference 
Manual" for more information on this topic. 
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SECTION 3 
AN EXAMPLE 



INTRODUCTION 

This section illustrates how to write assembly language programs 
tha? are Pascal callable. A program written in Ridge Pascal can be 
compiled into an intermediate form called P-code by the Ridge 
Pascal compiler, "pasc." The P-code can then be transla ted x nto an 
nhiect module by the translator, n ptrans f " and finally linKect witn 
otnlr Object modules by the linker, "link." (For more information 
on the compiling process, see the Ridge "Operating System Reference 
Manual.") 
included in this section are the listings for four files: 

o The command file which compiles, assembles, and links the 
program. 

o The Pascal source listing of the main program. 

o The assembler listing of the compiler's generated code. 

o The assembler listing of the called routines. 

The key items to be observed are: 

o how the assembler programs are declared in the Pascal 
program as "external" functions, 

o how the assembler programs access their parameters and 
how they return their values, 

o that Pascal compilation is a two step process involving: 

o running the Pascal compiler, "pasc" whose input 
is "example. s" and whose outputs are 
"example. 1" and "example. p", 

o running the P-code translator, "ptrans" whose 
input is "example.?" and whose outputs are 
"example. a" and "example. o". 
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COMMAND FILE LISTING 



pasc -1 example. 1 example. s 

ptrans -1 example. a example. p 

rasm -1 asmfuncs.l asmfuncs.s 

link -1 example. 11 example. o asmfuncs. o /lib/rtl.o 



PASCAL SOURCE LISTING 



{$A+} 

{ 

This program reads real numbers and computes 
their square roots using Newton's method. Two assembler 
language routines are called to manipulate parts of the 
real numbers. 

The routines are part of a suite of routines defined 
in the book "Software Manual for the Elementary Functions' 
by Cody and Waite, Prentice-Hall (1980) . 

} 

program example (input, output) ; 

var 

z : real ; 

iterations : integer ; 

{ 

1 intxp' returns the unbiased exponent of ' x'. 

function intxp(x : real) : integer ; external ; 

{ 

•setxp 1 returns a real number whose mantissa is 
that of 'x 1 and whose exponent is • n'. 

function setxp (x : real ; n e integer) : real ; external ; 

{$E} 

function sqroot(x : real) : real ; 

label 99 ; 
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const 

EPSILON = 1.0E-30 ; 

var 

i : integer ; 

yn, ynminusl : real ; 

begin {******* begin of function sqroot *******} 

iterations := ; 
if x = 0.0 then 
sqroot := 0.0 
else 
begin 

if x < 0.0 then 

x • = — x } 
ynminusl := setxp(x, intxp(x) div 2) ; 
while TRUE do 
begin 

yn := (ynminusl + x/ynminusl) / 2.0 ; 

iterations := iterations + 1 ; 

if abs(yn - ynminusl) <= EPSILON then 

goto 99 ; 
ynminusl := yn ; 
end ; 
99: sqroot := yn ; 
& nd * 
end ; {******* end of function sqroot *******} 

begin {******* begin of program example *******} 

while not eof ( input) do 
begin 

readln( input, z) ; 

writeln (output, 'sqrootC, z, ') = ', sqroot(z) , 

', iterations ■ ', iterations) ; 

end ; 

end. {******* end of program example *******} 



ASSEMBLER LISTING OF MAIN PROGRAM 



SOURCE LINE 41SL=P, ABS_AD=T, $S=0 

00000000 DEAOFPFFFFFF LADDR R10,-l 

00000006 A6A00040 STORE R10 , 64 

0000000A 11E0 MOVEI R14,0 

0000000C UFO MOVEI R15,0 
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OOOOOOOE 


9B00FFFFFFFF 


BR 


$MAINBLK 


SQROOT: 








00000014 


A7BE0000 


STORE 


Rll f R14,0 


00000018 


A7FE0008 


STORE 


R15,R14,8 


0000001C 


01FE 


MOVE 


R15,R14 


0000001E 


DFEEFFFFFFFF 


LADDR 


R14 f R14,-l 


00000024 


1100 


MOVE I 


R0,0 


00000026 


A6001004 


STORE 


R0,4100 


SOURCE LINE 42 






0000002A 


C71F0018 


LOAD 


R1,R15,24 


0000002E 


1120 


MOVE I 


R2,0 


00000030 


8A1 2FFFF 


BR 


RK>R2,E3 


SOURCE LINE 44 






00000034 


1130 


MOVE I 


R3,0 


00000036 


A73F0010 


STORE 


R3,R15,16 


0000003A 
E3: 
SOURCE LINE 4 


8B00FFFF 


BR 


L4 


6 






0000003E 


1130 


MOVE I 


R3,0 


00000040 


2A13 


RCOMP 


R1,R3 


00000042 


5510 


TESTLT 


R1,0 


00000044 


8E11FFFF 


BR 


RK>1,E5 


SOURCE LINE 47 






00000048 


C74F0018 


LOAD 


R4,R15,24 


0000004C 


2254 


RNEG 


R5,R4 


0000004E 
E5: 


A75F0018 


STORE 


R5,R15 f 24 


L6: 

SOURCE LINE 4 8 






00000052 


C70F0018 


LOAD 


R0,R15,24 


00000056 


A70E0018 


STORE 


R0,R14,24 


0000005A 


CFEE0020 


LADDR 


R14,R14,32 


0000005E 


A70E0018 


STORE 


R0,R14,24 


00000062 


93B0FFFFFFFF 


CALL 


R11,INTXP 


00000068 


0180 


MOVE 


R8,R0 


0000006A 


5580 


TESTLT 


R8,0 


0000006C 


0308 


ADD 


R0,R8 


0000006E 


7301 


ASRI 


R0,1 


00000070 


A70E0000 


STORE 


R0,R14,0 


00000074 


CFEEFFE0 


LADDR 


R14,R14,-32 


00000078 


93B0FFFFFFFF 


CALL 


R11,SETXP 


0000007E 


A70F0028 


STORE 


R0,R15,40 


00000082 


01C0 


MOVE 


R12.R0 


VARIABLE AT 2 


,40 ASSIGNED TO REGISTER 12 



00000084 C71F0018 LOAD Rl,R15,24 
00000088 01D1 MOVE R13,R1 

VARIABLE AT 2,24 ASSIGNED TO REGISTER 13 

W7: 

SOURCE LINE 4 9 

SOURCE LINE 51 

0000008A 010C MOVE R0,R12 

0000008C 011D MOVE R1,R13 
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0120 

2612 

2310 

DE3040000000 

2613 

A71F0024 



7011 
7111 
DE500DA24260 

2A15 
5C10 
8E11FFFF 



A7DF0018 
8B00FFFF 



0000008E 
00000090 
00000092 
00000094 
0000009A 
0000009C 
SOURCE LINE 52 

000000A0 C6401004 
000000A4 1341 
000000A6 A6401004 
SOURCE LINE 53 

000000AA 2410 
000000AC 
000000AE 
000000B0 
000000B6 
000000B8 
OOOOOOBA 
SOURCE LINE 5 4 

O0O000BE A7CF0028 
000000C2 
000000C6 
E9: 
L10: 
SOURCE LINE 55 

000000CA C70F0024 
000000CE 01C0 
SOURCE LINE 56 

000000D0 8B00FFBB 

L8: 

000000D4 A7CF0028 
000000D8 A7DF0018 

X2 s 

SOURCE LINE 57 

000000DC C70F0024 
000000E0 A70F0010 

L4: 

SOURCE LINE 5 9 

000000E4 C70F0010 

000000E8 

000000EC 

000000EE 

000000F2 
SOURCE LINE 6 3 
$MAINBLK: 

000000F4 

000000F8 

000000FC 

000000FE 

00000104 

0000010A 

0000010E 



C7BF0000 
01EF 

C7FF0008 
57BB 



MOVE 

RDIV 

RADD 

LADDR 

RDIV 

STORE 

LOAD 
ADDI 
STORE 

RSUB 

LSLI 

LSRI 

LADDR 

RCOMP 

TESTLE 

BR 

STORE 
STORE 
BR 



LOAD 

MOVE 

BR 

STORE 
STORE 



LOAD 
STORE 



LOAD 
LOAD 
MOVE 
LOAD 
RET 



A7BE0000 STORE 

A7FE0008 STORE 

01FE MOVE 

DFEEFFFFFFFF LADDR 

93B0FFFFFFFF CALL 

CE00008C LADDR 

A70E0018 STORE 



R2,R0 

R1,R2 

R1,R0 

R3 ,1073741824 

R1,R3 

Rl,R15,36 

R4,4100 

R4 f l 

R4,4100 

Rl,R0 

Rl,l 

Rl,l 

R5, 228737632 

R1,R5 

Rl,0 

RlOl,E9 

R12,R15,40 
R13,R15,24 
X2 



R0,R15,36 
R12,R0 

W7 

R12,R15,40 
R13,R15,24 



R0,R15,36 
R0,R15,16 



R0,R15,16 

R11,R15,0 

R14,R15 

R15,R15,8 

R11,R11 

R11,R14,0 

R15,R14,8 

R15,R14 

R14 ,R14,-1 

Rll, SYS ENTRY 

R0,140 

R0,R14 f 24 
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00000112 
00000118 
0000011C 
00000120 

W4: 

00000126 
0000012A 
0000012E 
00000132 
00000134 
00000136 
00000138 
0000013A 
0000013C 

SOURCE LINE 6. 
00000140 
00000144 
00000148 
0000014C 
00000150 
00000156 
0000015A 
0000015E 

SOURCE LINE 6 I 
00000164 
00000168 
0000016C 
00000172 
00000176 
0000017C 
00000180 
00000182 
00000184 
00000188 
0000018C 
00000190 
00000194 
0000019A 
0000019E 
000001A2 
000001A4 
000001A6 
000001AA 
000001AE 
000001B2 
000001B6 
000001BC 
000001C0 
000001C4 
000001CA 
000001CE 
000001D0 



93B0FFFFFFFF CALL 

CE100084 LADDR 

A71E0018 STORE 

93B0FFFFFFF2 CALL 

CEO 00084 LADDR 

C710FFFC LOAD 

C7110000 LOAD 

7811 CSLI 

0181 MOVE 

7811 CSLI 

0918 OR 

1B11 ANDI 

8611FFFF BR 

CE200084 LADDR 

CE3 01000 LADDR 

A72E0018 STORE 

A73E0020 STORE 

93B0FFFFFFFF CALL 

C70E0018 LOAD 

A70E0018 STORE 

93B0FFFFFFFF CALL 

CE10008C LADDR 

CE20FFF8 LADDR 

DE807371726F LADDR 

A680FFF8 STORE 

DE806F742827 LADDR 

A6 80FFFC STORE 

1137 MOVEI 

1147 MOVEI 

A71E0018 STORE 

A72E0020 STORE 

A73E0028 STORE 

A74E003 STORE 

93B0FFFFFFFF CALL 

C70E0018 LOAD 

C6101000 LOAD 

11 2E MOVEI 

1130 MOVEI 

A70E0018 STORE 

A71E0020 STORE 

A72E0028 STORE 

A73E003 STORE 

93B0FFFFFFFF CALL 

C70E0018 LOAD 

CE10FFF4 LADDR 

DE8029203D20 LADDR 

A680FFF4 STORE 

1124 MOVEI 

1134 MOVEI 



R11,FDF 
Rl,132 
R1,R14,24 
R11,FDF 

R0,132 

Rl,R0,-4 

R1,R1,0 

Rl f l 

R8,R1 

Rl f l 

R1,R8 

Rl f l 

R1=1,L5 

R2,132 

R3,4096 

R2,R14,24 

R3,R14,32 

R11,RDR 

R0,R14,24 

R0,R14,24 

R11,RLN 

Rl,140 

R2,-8 

R8,1936814703 

R8,-8 

R8, 1869883431 

R8 f -4 

R3,7 

R4,7 

R1,R14,24 

R2 f R14 r 32 

R3,R14,40 

R4,R14,48 

Rll f WRS 

R0,R14,24 

Rl,4096 

R2,14 

R3 f 

R0,R14,24 

R1,R14,32 

R2,R14,40 

R3,R14 f 48 

Rll f WRR 

R0 f R14 f 24 

Rl f -12 

R8 r 68997 8656 

R8 f -12 

R2 f 4 

R3 f 4 
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000001D2 
000001D6 
000001DA 
000001DE 
000001E2 
000001E8 
000001EC 
000001F0 
000001F2 
000001F6 
000001FA 
000001FE 
00000200 
00000202 
00000206 
00000208 
0000020C 
00000210 
00000214 
00000218 
0000021E 
SOURCE LINE 6 
00000222 
00000224 
00000228 
0000022C 
00000232 
00000236 
0000024C 
0000024E 
00000250 
00000254 
00000258 
0000025C 
00000260 
00000266 
0000026A 
0000026E 
00000270 
00000274 
00000278 
0000027C 
00000282 
00000286 
0000028A 
SOURCE LINE 6 

00000290 
L5: 

SOURCE LINE 7 
00000294 
00000296 
0000029A 



A70E0018 
A71E0020 
A72E0028 
A73E0030 
93B0FFFFFFB2 
C70E0018 
A70E0000 
13E8 

C6101000 
A71E0018 
83B0FE1B 
HIE 
1120 

C73EFFF8 
14E8 

A73E0018 
A70E0020 
A71E0028 
A72E0030 
93B0FFFFFF9E 
C70E0018 
7 

188F 
CE10FFE4 

E7980024 

B7 98FFFFFFF4 

8784FFF7 

8B000016 

112F 

113F 

A70E0018 

A71E0020 

A72E0028 

A73E0030 

93B0FFFFFF82 

C70E0018 

C6101004 

112C 

A70E0018 

A71E0020 

A72E0028 

93B0FFFFFFFF 

C70E0018 

A70E0018 

93B0FFFFFFFF 



8 



8B00FE97 



1100 

A70E0018 

93B0FFFFFFFF 



STORE 

STORE 

STORE 

STORE 

CALL 

LOAD 

STORE 

ADDI 

LOAD 

STORE 

CALL 

MOVE I 

MOVE I 

LOAD 

SUB I 

STORE 

STORE 

STORE 

STORE 

CALL 

LOAD 

NOT I 

LADDR 

LOADP 

STORE 

LOOP 

BR 

MOVE I 

MOVE I 

STORE 

STORE 

STORE 

STORE 

CALL 

LOAD 

LOAD 

MOVE I 

STORE 

STORE 

STORE 

CALL 

LOAD 

STORE 

CALL 

BR 



MOVE I 
STORE 
CALL 



R0,R14,24 

R1,R14,32 

R2,R14,40 

R3,R14 f 48 

R11,WRS 

R0,R14,2 4 

R0,R14,0 

R14,8 

Rl,4096 

R1,R14,24 

Rll,SQROOT 

Rl f 14 

R2,0 

R3,Rl4,-8 

R14,8 

R3,R14,24 

R0,R14,32 

Rl,Rl4 r 40 

R2,R14,48 

R11,WRR 

R0,R14 f 24 

R8,15 
Rl,-28 
R9,R8,3 6 
R9,R8,-12 
R8,4,*-10 

R2,15 

R3,15 

R0,R14,24 

R1,R14,32 

R2,R14,40 

R3,R14,48 

Rll,WRS 

R0,R14,24 

Rl,4100 

R2,12 

R0,R14,24 

R1,R14,32 

R2,R14,40 

Rll,WRI 

R0,R14,24 

R0,R14,24 

R11,WLN 

W4 



R0,0 

R0,Rl4 f 24 

R11,SYSEXIT 
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000002A0 


C7BF0000 


LOAD 


R11,R15,0 


000002A4 


01EF 


MOVE 


R14,R15 


000002A6 


C7FF0008 


LOAD 


R15,R15,8 


000002AA 


57BB 


RET 


R11,R11 



NUMBER OF BYTES OF CODE GENERATED =6 84 



ASSEMBLER LISTING OF CALLED ROUTINES 



$HEXOUT 



INTXP: 



function intxp(x : real) : integer ; 

INTXP returns the unbiased exponent of the given 
argument, i.e. returns (exponent - 127) . 



input : R14,24 
output: RO 
GLOBAL INTXP 



LOAD 

CSLI 

LADDR 

AND 

LADDR 

SUB 

RET 



R0 f R14,24 

R0,9 

Rl f 0FFH 

R0,R1 

R0,127 

R0,R1 

Rll f Rll 



— x 

— the answer 



;R0 <- REAL NUMBER, I.E., LOAD x 

; SHIFT EXPONENT INTO POSITION 

;LOAD MASK 

;MASK OUT MANTISSA AND SIGN BIT 

;LOAD EXPONENT BIAS 

;UNBIAS EXPONENT 

; RETURN TO CALLER 



SETXP: 



function setxp(x : real 



n 



integer) : real 



SETXP returns the real whose mantissa is that of x 
and whose exponent is n. 



input: R14,24 
R14,32 

output: RO 

GLOBAL SETXP 



— X 

— n, unbiased exponent 

— the answer 



LOAD R0,R14,24 ;R0 <- REAL NUMBER, I.E., LOAD x 

LADDR R1,0807FFFFFH,L ;LOAD MASK 

AND R0,R1 ; CLEAR EXPONENT 

LOAD R1,R14,32 ;LOAD EXPONENT, I.E. LOAD n 

LADDR R2,127 ;LOAD EXPONENT BIAS 

ADD R1,R2 ;ADD IN EXPONENT BIAS 
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LADDR 


R2,0FFH 


AND 


R1,R2 


CSLI 


Rl,15 


CSLI 


Rl,8 


OR 


RO f Rl 


RET 


R11,R11 


END OF 


SOURCE FILE 


END 





LOAD MASK 

ISOLATE 8-BIT EXPONENT 

SHIFT INTO POSITION 

... IN TWO SHIFTS 
'OR' IN NEW EXPONENT 
RETURN TO CALLER 
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